﻿Imports System.Windows.Forms

Public Class Controles
    ''' <summary>
    ''' Carga un Control ListView con una lista que se le pasa como parametro. 
    ''' No se tiene en cuenta el encabezado de la ListView. 
    ''' </summary>
    ''' <returns>No tiene retorno.</returns>
    ''' <remarks></remarks>
    Public Shared Function CargarListView(ByRef lstView As ListView, ByVal lista As IList)
        'Recorrer la lista e ir llenando el listView. 
        '    Public Sub CargarListview(ByRef Lista As ListView, ByRef rs As ADODB.Recordset)
        '        ' Carga el ListView con el recorset "rs", sin ponerle los nombres de columnas.
        '        'Es decir la listview que llegue aca tendria que llegar con los nombres de columnas ya listos.
        '        Dim i As Integer
        '        Dim Item As ListItem

        '        On Error GoTo errores
        '        Lista.ListItems.Clear()
        '        Do While Not rs.EOF
        '            Item = Lista.ListItems.Add(, , Format(rs.Fields(0)))
        '            For i = 1 To rs.Fields.Count - 1
        '                If Not IsNull(rs.Fields(i)) Then
        '                    Item.SubItems(i) = rs.Fields(i)
        '                End If
        '            Next
        '            rs.MoveNext()
        '        Loop
        '        Exit Sub

        'errores:
        '        MsgBox(Err.Description & "en Proceso: Cargar Lista")

        '    End Sub
    End Function
End Class